' SHIFTIN and SHIFTOUT Commands

        Include "modedefs.bas"  ' Include shift modes

D1PIN   var     PORTA.0         ' Shift data pin 1
C1PIN   var     PORTA.1         ' Shift clock pin 1
D2PIN   var     PORTB.0         ' Shift data pin 2
C2PIN   var     PORTB.1         ' Shift clock pin 2

bvar    var     byte
wvar    var     word


' Shift in 10 bits of data
        Shiftin D1PIN, C1PIN, MSBPRE, [wvar\10]

        bvar = wvar

' Shift out 8 bits of data onto other pins
        Shiftout D2PIN, C2PIN, MSBFIRST,[bvar]

        End
